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

my $a=0.9; 
my $b=0.7; 
my $c=0.5;

  my $lar_value=max($a,$b,$c);
  print $lar_value," is the greatest",$/;

   sub max{
       my $init=shift(@_);
      foreach(@_){
         if($init>$_){
            $init=$init;
          }else{$init= $_}
     }
    return $init;
  }