$linea = join("\t", $dispositivo, $pmontaje, $tipo, $atributos, $dump, $orden);
print $fichero $linea, "\n";

#Declaración de funciones

sub ElegirOpcion;
sub OpcionL;
#sub OpcionA;
#sub OpcionB;
#sub OpcionT;

#Definición de funciones

sub ElegirOpcion
{
      my $opciones=$_[0];
      print "$opciones\n";

      if(@$opciones[0] eq "-l")
      {
            OpcionL(\@ARGV); #Aqui debería de poner \@opciones pero no funciona
      }
      elsif(@$opciones[0] eq "-a")
      {
            OpcionA(\@$opciones);
      }
      elsif(@$opciones[0] eq "-b")
      {
            OpcionB(\@$opciones);
      }
      else
      {
            OpcionT(\@$opciones);
      }
}

sub OpcionL
{
      my $opcion=$_[0];
      my $num_argumentos;
      my $contador_lineas = 0;
      my $i = 0;
#     print "$opcion\n"; #Aqui me doy cuenta de que los dos punteros no apuntan al mismo sitio

..................................................

..................................................

#Cuerpo principal del programa

$num_argumentos=@ARGV;

if ($num_argumentos==0)
{
      die "Error\nNo has introducido ningún parámetro\nEl formato del comando es : adminfstab –l [ pmontaje | dispositivo [-d]] | -a | -b pmontaje | -t lista_fs...\n";
}
else
{
      if ($ARGV[0] eq "-l"||$ARGV[0] eq "-a"||$ARGV[0] eq "-b"||$ARGV[0] eq "-t")
      {
            ElegirOpcion(\@ARGV);
      }