I'm surprised noone has told you to do this:

#!/usr/bin/perl -w

you would then have got this:
Use of uninitialized value in print at - line nn.
(because @data is undefined)

Which should always make you suspicious.