use mapcar;
mapcar { do_stuff($_) for @_ } @$vscr;