Someone

#!/usr/bin/perl

my %autoreplies = (
"key1" => ["val1", "val2"],
);

#--
print $autoreplies{"key1"}[0]."\n";   # val1
print $autoreplies{"key1"}[1]."\n";   # val2
print "\n";

#--
my @foo = $autoreplies{"key1"};
print $foo[0];                        # ARRAY(ptr) 
print $foo[1];                        # -empty-