Shell Programming and Scripting

#!/usr/bin/perl

use warnings;
use strict;

my @arrys = (
  [ qw( 44 44 44 44 ) ],
  [ qw( 55 55 55 55 55 55 56 ) ],
  );

  
for my $arry (@arrys) {
  my %h;
  $h{$_} = undef for @$arry;
  if (keys %h > 1) {
    print "@$arry is not OK\n"
    }
  else {
    print "@$arry is OK\n";
    }  
  }

perl -le'
  my @array1 = qw(44 44 414 44);
  my @array2 = qw(55 55 55 55 53 55 55);
  map { map { $_{$_} = undef } @$_ ; print keys %_ > 1 ? KO : OK ;%_=() ;} (\@array1, \@array2);
'

perl -le'
  @array1 = qw(44 44 414 44);
  @array2 = qw(55 55 55 55 55 55 55);
  
  do {
      local @_{@$_} = ();
      print keys %_ > 1 ? "KO" : "OK"
      } for \@array1, \@array2
    '

perl -le'
  @array1 = qw(44 44 414 44);
  @array2 = qw(55 55 55 55 55 55 55);
  
  do{local@_{@$_}=();print keys%_>1?"KO":"OK"}for\@array1,\@array2
    
    '

sub is_unique (\@) {
  my ($a, %h) = shift;
  $h{$_} = undef for @$a;
  return keys %h > 1 ? 0 : 1;
  }

if (is_unique @array1) {
  ...
  }