my %hash = map { split } @names_marks;

##</code><code>##

my %hash = ( 'bob', 1 );
# or
my %hash = ( bob => 1 );

##</code><code>##

my %hash;
for( @names_marks ) { %hash = split }
# or, expanding split
for( @names_marks ) { %hash = split ' ', $_ }