foreach my $i ( @{$ref}{@a} ) {
    print $i;
}