Select Code to Download

{
    my @tab;
...
        return @tab;
    }
}

    sub teledecode {
        @tab = ();
        return arrangecode( '', 0, @telear[ split //, $_[0] ] );
    }

foreach my $toto (@ARGV) {
    if ( $toto =~ /-d=(\d+)/ ) {
...
        return @tab;
    }
}

    else {
        # This slice should probably explained.
        print join '', @telealph{ split //, uc( $toto ) };
    }