Set multiple keys of a hash ref to 1 without a loop

hash_bulk_to_1

#! /usr/bin/perl

use warnings;
use strict;
use Data::Dumper;

my %hash = (a => 1, b => 1, c => 1);
my $hashref = \%hash;
my @keys = ('d','e','f','g','h','i');

@$hashref{@keys}=(1)x(@keys);

print Dumper($hashref);