Select Code to Download

use strict;
use warnings;
...
}

print "Infile: $args{-infile}\n", "Outfile: $args{-outfile}" if ( exis
+ts $args{-infile} && exists $args{-outfile} );

my %hash = { key => [value_1, value_2, value_3, value_4]};