You should print out your @array to make sure it contains what you think it does:

use Data::Dumper;
# ...
# build @array
# ...
print Dumper( \@array );
[download]