...

my @prim = (("int","char","long","double","static");
my %prim = map { $_ => 1 } @prim;

...