Select Code to Download

#!/usr/bin/perl
use warnings;
...
    print join( "\t", $name, @{ $data{ $name } } ), "\n";
    }