Select Code to Download

use strict;
use warnings;
...
             map { $_ . '||' . $hash{$_} } keys %hash;

print Dumper(\@sorted);

$VAR1 = [
          'barney rubble',
          'bill nye',
          'homer simpson'
        ];