But am unable to get the desired output

You never specified what your desired output is, but I will guess that you want to print out the contents of the @row array. If that is the case, then you are misusing qw because it does not interpolate variables. Maybe you want something like this instead:

print "$_\n" for @row;
[download]