$control[0]{"play"} = "/false/;
    $control[0]{"ctrl"} = "/false/;
    $control[0]{"loop"} = "/false/;
    % control = map { $_ => 'true' } split ' ', $4;


##</code><code>##

my %control = map { $_ => 'false' } qw(play ctrl loop);
  $control{$_} = 'true' for split ' ', $4; 

##</code><code>##

  my %control = map { $_ => 'true' } split ' ', $4;
  %control = ((map { $_ => 'false' } qw(play ctrl loop)), %control);