@user_info = split /:/; #$_ not needed, as it's the default $user_dict{$user_info[0]} = [@user_info[4,5]]; #create anonymous array ... print "User Info for $user: $user_dict{$user}[0] $user_dict{$user}[1]\n";