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

my $file = "sizes";

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

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

    print qq($sizegb\n);
    $sizegb /= 1024;
    print qq($sizegb\n);
}