Shell Programming and Scripting

#!/usr/bin/perl

use warnings;
 
 while (<>) {

 @arr1 = split(//);

 $i = 0;

 foreach (@arr1) {

$_ = $arr1[$i++];

@arr2 = ($arr1[$i],$arr1[$i+1],$arr1[$i+2]);

print "@arr2\n";
  
};}

Use of uninitialized value $arr2[2] in join or string at Hello line 18, <> line 1.
h 
 
Use of uninitialized value $arr2[1] in join or string at Hello line 18, <> line 1.
Use of uninitialized value $arr2[2] in join or string at Hello line 18, <> line 1.

  
Use of uninitialized value $arr2[0] in join or string at Hello line 18, <> line 1.
Use of uninitialized value $arr2[1] in join or string at Hello line 18, <> line 1.
Use of uninitialized value $arr2[2] in join or string at Hello line 18, <> line 1.