foreach( @$res ) {
  print "$_->[0]\n";
}

##</code><code>##

print "$res->[0]\n";