return_hash

#!/usr/bin/perl

use strict;
use warnings;
use Data::Dump 'pp';
use feature 'say';

sub string_lengths {
    my @params = @_;

    return map { $_ => length($_) } @params;
}

my %lengths = string_lengths(@ARGV);
say 'String lengths: '.pp(%lengths);