my @clients = ( ["rakvere", "viktor.kruuse\@elion.ee"], ["varulinn", "rene.bernard\@elion.ee"] ); for ($i = 0; $i < scalar(@clients); $i++) { print $clients[$i][1]; }