use strict; 
use warnings; 
use 5.010; 
 
my %info_for = ( 
    tom   => ['ibm', 'abc@xxx'], 
    betty => ['google', 'xyz@xxx'], 
); 
 
my $name = 'tom'; 
say "@{$info_for{$name}}"; 
 
--output:-- 
ibm abc@xxx