#!/usr/bin/perl
use strict;
use warnings;

my $template = "A14 A7 A7 A9 A10 A7 A7 A9 A9";

my @quotas;
push @quotas, [ unpack $template, $_ ] while <DATA>;

use Data::Dumper;
print Dumper(\@quotas);

__DATA__
Filesystem     usage  quota  limit    timeleft  files  quota  limit    timeleft
/var/mail       1394  15360  16384                  0      0      0
/home         255999 307200 308224                 34      0      0