#!/usr/bin/perl
use strict;
use warnings;

sub Procedure_Name_1
   {
   my($Parm) = shift;
   print($Parm);
   }

my %Procedures;
$Procedures{'ProcName1'} = \&Procedure_Name_1;

my $Procedure = 'ProcName1';
my $Parameter = 'Some Value';
&$Procedures->{$Procedure}($Parameter);