@data = ('webpage1','webpage2');

print "Web page needed: \n";
chomp($_ = <>);
foreach $data (@data)
{
	$hit = ($data =~ /$_/);
	if ($hit)
	{
		print "Web page number = $data.\n";
		last;
	}
}

if (!$hit)
{
		$data = pop(@data);
		print "$data\n";
}