use strict;
my ( $var1, $var2, $var3 );

# or 
my ( $var4, $var5 ) = ( 4, 'five' );

##</code><code>##

use strict;
use vars qw( $var1 $var2 $var3 $var4 $var5 );
$var4 = 4;
$var5 = 'five';

##</code><code>##

my $frameFileName = $mw -> Frame;
$frameFileName = $mw -> Frame( qw(list of frame parameters) );

##</code><code>##

my $frameFileName = $mw -> Frame( qw(list of frame parameters) );