OP probably meant the code be as follows
use strict;
use warnings;
my $n = input();
my $m = input();
my $p = input();
my $q = input();
Solution();
sub input{
my $input = <STDIN>;
chomp $input;
return $input;
}
sub Solution{
my $matchflag=0;
my $occurence=0;
#OUPTUT [uncomment & modify if required]
my $ind=index($m,$p);
if ($ind!=-1){
$matchflag=1;
}
$occurence= () = $m =~ /$q/g;
print("Match flag: $matchflag\n");
print("Ocurance: $occurence\n");
}
Output
6
naman
nam
n
Match flag: 1
Ocurance: 2
So in a language like Java or C, we need to pass arguments during function call so that the function can access those variables. Here, you do not pass arguments while calling the function. What's going on here?
Function may or may not have any arguments, and it can or may not return anything. Some function can for example optimize database, verify that procedure finished successfully and do not return anything. Some functions may have arguments, do some operations with them and then return result -- for example calculator operation as add, subtract, multiply, power.