my @data = map { [split /,/] } <>;

You might want a chomp in there to avoid leaving the line terminator in the last field.

my @data = map { chomp; [split /,/] } <>;
[download]

I second your *sigh* by the way.

Cheers,

JohnGG