And what do you think about Text::Table (http://search.cpan.org/~anno/Text-Table-1.107/lib/Text/Table.pm)?
I like very much the ``perl old-school technique'' showed by robin, but using this module is even more simple ^_^

#!/usr/bin/perl -w
use Text::Table;
my @aoa = (
    [qw (GAL_up800.fasta  6  800  4.8)],
    [qw (hm01g.fasta  18  2008  36.144)],
    [qw (hm02r.fasta  9  1000  9)],
    [qw (train_muscle.fasta 7 50 0.35 )],
);

my $tb = Text::Table->new();
$tb->load(@aoa);
print $tb;
[download]

You create the object, load your table and print its out, the Text::Table will format and align the elements on the table for you ...

GAL_up800.fasta     6  800  4.8  
hm01g.fasta        18 2008 36.144
hm02r.fasta         9 1000  9    
train_muscle.fasta  7   50  0.35
[download]

Cool isn't it?