@fun=($bike,$music,$perl);
push @life, @fun;