#!/opt/apps/perl/perl5261/bin/perl use strict; use warnings; my %params = { 'default-0' => ['lakja', 'haljl', 'alka'], 'default-1' => 'abc', 'default-2' => [1, 54, 83, 23], 'default-3' => [], 'default-4' => '', 'default-5' => '2019-06-26 00:00:10', }; my @arr_0 = @{ $passedParameters{'default-0'} } if defined($passedParameters{'default-0'}); my $scal_1 = $passedParameters{'default-1'} if defined($passedParameters{'default-1'}); my @arr_2 = @{ $passedParameters{'default-2'} } if defined($passedParameters{'default-2'}); my @arr_3 = @{ $passedParameters{'default-3'} } if defined($passedParameters{'default-3'}); my $scal_4 = $passedParameters{'default-4'} if defined($passedParameters{'default-4'}); my $date_5 = $passedParameters{'default-5'} if defined( $passedParameters{'default-5'});