open(my $fh, '<', $file) or die "Could not open '$file' $!\n";

<$fh>; ### skip header

while (my $line = <$fh>) 
{
    chomp $line;
    my ($drive, $sizegb, $freegb) = split (/,/,$line);

    print qq($sizegb\n); ### \n for new line
    $sizegb /= 1024;
    print qq($sizegb\n); ### \n for new line
}