use Data::Dump qw/ dd /; # Creates a shortcut for calling Data::Dumper, writing dd is enough to call module #### Main( @ARGV ); # main function, takes every file (as an argument) that is passed to @ARGV, might be command line or files #that are read in #### exit( 0 ); #not really a clue, maybe main exits if no arguments are passed to it #### dd( -argv, \@ARGV ); #calls Data::Dumper via reference => possibly to print which files are being passed as arguments (control function) #### Sky(6); #not really a clue => Does that mean that the sub stops after six runs #### my( $ra ) = @_; # variable for the argument(s) passed to the sub, @_ accepts every argument passed to sub, i.e. the files passed to main