use warnings;
use strict;
use Tie::IxHash;

tie (my %ifSpeeds, "Tie::IxHash");

%ifSpeeds = (
"Gi3/1" => "1000000000",
"Gi3/2" => "100000000",
"Gi3/3" => "1000000000",
"Gi3/4" => "1000000000",
"Gi3/5" => "100000000",
"Gi3/6" => "1000000000",
"Gi3/7" => "1000000000",
"Gi3/8" => "1000000000",
"Gi3/9" =>  "100000000",
"Gi3/10" => "1000000000",
"Gi3/11" => "1000000000",
"Gi3/12" => "1000000000",
"Gi3/13" => "1000000000",
"Gi3/14" => "100000000",
"Gi3/15" => "1000000000",
"Gi3/16" => "1000000000",
"Gi3/17" => "1000000000",
"Gi3/18" => "1000000000",
"Gi3/19" => "100000000",
"Gi3/20" => "1000000000",
"Gi3/21" => "100000000",
"Gi3/22" => "1000000000",
"Gi3/23" => "1000000000",
"Gi3/24" => "1000000000",
"Gi3/25" => "100000000",
"Gi3/26" => "100000000",
"Gi3/27" => "100000000",
"Gi3/28" => "100000000",
"Gi3/29" => "100000000",
"Gi3/30" => "100000000",
"Gi3/31" => "1000000000",
"Gi3/32" => "1000000000"
);

my $counter = 1;

foreach my $key ( keys %ifSpeeds )
{

	if ($counter <= 8) {
		print "$key ";
		$counter++;
	} else { 
		print "\n";
		$counter = 1;
	}
}