Select Code to Download

foreach (keys %info) {
    print "\t$info{$_}->[0]\t$info{$_}->[1]\t$info{$_}->[2]\t$info{$_}
+->[3]\n";
}

for (values %info) {
    print "\t", join("\t", @$_), "\n";
}