Select Code to Download

my %data;
open FILE, '<', 'gravity' or die;
...
    print join "\t", @{ $data{ $key } };
}