#!/usr/bin/perl -w

my @stats=(0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0);
my $a;
open FILE, "/usr/bin/vmstat -i | grep -v interrupt |";
        while (<FILE>) {
                chomp;
                ($a,$b,$c,$d) = split ;
                $a =~ s/irq(\d+)\:/$1/;
                $a =~ s/Total/-1/;
                $stats[$a+1] = $c ;
                print $stats[0..16];
        };
close FILE;