Select Code to Download

use strict;
use warnings;
...
    my $key = shift;
    return int $key;
}

# before
$VAR1 = {
...
                   'key1' => 'value1'
                 }
        };