#use strict;
use warnings;
use utf8;

my $α= 5;
my $Φ= 4;

sub Φ
 {
 return $Φ;
 }

package XX;
$main::Φ= 33.33333;

package main;

print Φ;