variable_list

#!/usr/bin/env perl

use strict;
use warnings;
use utf8;

use Data::Dumper;

binmode STDIN,":encoding(UTF-8)";
binmode STDOUT,":utf8";
binmode STDERR,":utf8";

my $source_file = <STDIN>;
chomp($source_file);

my $fh;
my %variable_list;
open $fh,"<",$source_file or die $!;
my @entries = <$fh>;
close $fh;

for my $line(@entries){
    if($line =~ /(\$[a-zA-Z]+[a-zA-Z0-9_]*)/){
        $variable_list{$1}+=1;
    }
}

print Dumper \%variable_list;