use strict;
use warnings;

my (@A, @IA, @JA) = ();
while (<DATA>) {
    chomp;
    my @elements = split /\s+/;
    my $i = 0;
    my $new_line = 1;
    while (defined(my $element = shift @elements)) {
        $i++;
        if ($element) {
            push @A, 0 + $element;
            if ($new_line) {
                push @IA, scalar @A;
                $new_line = 0;
            }
            push @JA, $i;
        }
    }
}
push @IA, 1 + @A;
print('@A  = [', join(" ", @A), "]\n");
print('@IA = [', join(" ", @IA), "]\n");
print('@JA = [', join(" ", @JA), "]\n");


__DATA__
1 2 0 0
0 3 9 0
0 1 4 0