Select Code to Download

#!/usr/bin/perl -w
use strict;
...
username    Real Name|email@gmail.com|2|30|
fred        Fred Bloggs|fbloggs@gmail.com|3|27|
harryp      Harry Potter|harry@gmail.com|5|32|

foreach my $user (keys %user_info) {
    print "Username:$user Real Name:$user_info{$user}{'Real Name'}\n";
}

Username:harryp Real Name:Harry Potter
Username:fred Real Name:Fred Bloggs
Username:username Real Name:Real Name