sub get_path {
    my $path = shift;                  # Retrieve the argument.
    print STDERR "DEBUG: Got '$path'"; # Show you got it correctly.
}

get_path('a/bcd/sample/array.list');   # Pass the argument.
[download]

Or, did you mean something else? See How do I post a question effectively?, show us what you tried and how it failed.

I have a script which needs to read an array from a/bcd/sample/array.list How can I pass this list file as an argument to a function in my perl script?

Pass from where, starting where?

perl foo.pl a/bcd/sample/array.list ...

#!/usr/bin/perl --
# foo.pl
use strict; use warnings; use Path::Tiny qw/ path /;
Main( @ARGV );
exit( 0 );
sub Main {
  my( @files ) = @_;
  for my $file ( @files ){
    my $stuff = path( $file )->slurp_raw;
    ...;
  }
}
[download]

Path::Tiny, @ARGV, Writing subroutines...