it seems that where you do the
push @features, $seq->get_all_SeqFeatures();
part, you are pushing a hash reference onto the array, but you thought it was some string data.

you should find out:

use Data::Dumper; # goes somewhere at the top of the script. then...
print Dumper \@features; # goes right before the return @features;stat
+ement.
[download]

Sören