in reply to Fun with two-dimensional arrays
use mapcar; mapcar { do_stuff($_) for @_ } @$vscr; [download]
See mapcar.