use Data::Dumper; # goes somewhere at the top of the script. then...
print Dumper \@features; # goes right before the return @features;statement.