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

my $count=42;
my $completed=6;
my $progress_output=["\rProcessing: ",\$count," files to process ; ",\$completed," file completed\n"];

notify_progress();

$completed=7;

notify_progress();

sub notify_progress {
	foreach (@$progress_output) {
		if (ref($_) eq 'SCALAR') {
			print $$_;
		}
		else { 
			print $_;
		}
	}
}