Are you sure you're only getting 1 quote? Some may be unprintable (undef). Add this code to the end of your sub (Tip #4 from the Basic debugging checklist):

    use Data::Dumper;
    print Dumper(\@quotes);
[download]

What module is get from?