my %line; for my $alpha ( "a" .. "b" ) { $line{$alpha} = "somenum"; }