#get input
my(%input) = &ReadParse();

## OR

my(%input) = (some_input => 'for the sub');

&ReadParse(\%input);