#!/usr/bin/perl -w

use strict;
use warnings 'all';

my $min_size = 1024;
my @dirs = qw( /dir1  /dir1/imgs );
my @files =
  grep { -f && -s >= $min_size }  # Check size
    map { $_ =~ s{//}{/}g; $_ }   # Remove extra slashes
      map { <$_/*> } @dirs;       # Read directory
warn join "\n", @files;