Select Code to Download

my $res = $dbh->selectall_arrayref("SELECT username, phone, email FROM
+ users");
my %users = map { $_->[0] => [ $_->[1], $_->[2] ] } @$res;
for (@usernames) {
    my ($phone, $email) = @{$users{$_}};
}